perm filename IOMOD.HDR[NEW,AIL] blob
sn#408288 filedate 1979-01-08 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 REQUIRE "⊂⊃⊂⊃" DELIMITERS
C00006 ENDMK
C⊗;
REQUIRE "⊂⊃⊂⊃" DELIMITERS;
EXTERNAL STRING SIMPLE PROCEDURE REQSTR(STRING REQ);
EXTERNAL BOOLEAN SIMPLE PROCEDURE ASK(STRING S);
EXTERNAL INTEGER SIMPLE PROCEDURE REQINT(STRING S);
EXTERNAL PROCEDURE OPEN_FILE(REFERENCE INTEGER CH;
VALUE STRING FIDREQ;INTEGER M,IB,OB;REFERENCE INTEGER EOFF);
EXTERNAL INTEGER OUCH,OEOF;
EXTERNAL SIMPLE PROCEDURE WRITEON(STRING S;INTEGER OPF(0));
EXTERNAL SIMPLE PROCEDURE WRITE(STRING S;INTEGER OPF(0));
IFCR ¬DECLARATION(BITDEF) THENC
DEFINE BITDEF(BITID,V,XX)"[]" = [
DEFINE BITID "<>" = <V>;
ASSIGNC XX "⊂⊃" = CVPS(BITID)&⊂_ON⊃;
DEFINE XX (I) "⊂⊃" = ⊂((I) LAND (⊃&CVPS(V)&⊂))⊃
];
ENDC
BITDEF(UROUTB,(1 LSH 35));
BITDEF(RTNSTR,'200000000000);
BITDEF(TTYYES,'100000000000);
BITDEF(TTYNOT,'040000000000);
BITDEF(CHNSPC,'020000000000);
BITDEF(CHNNOT,'010000000000);
DEFINE TTYONLY "<>" = <CHNNOT>;
DEFINE TTYALWAYS "<>" = <TTYYES>;
DEFINE TTYNOFILE "<>" = <TTYYES+CHNNOT>;
DEFINE FILEONLY "<>" = <TTYNOT>;
EXTERNAL SIMPLE PROCEDURE INI_OUTPUT(INTEGER CTL(0);STRING FID(NULL));
DEFINE INITIALIZE_OUTPUT"⊂⊃"=⊂INI_OUTPUT⊃;
EXTERNAL SIMPLE PROCEDURE CL_OUTPUT;
DEFINE CLOSE_OUTPUT "<>" =<CL_OUTPUT>;
REQUIRE "IOMOD.REL[S,RHT]" LOAD_MODULE;
REQUIRE UNSTACK_DELIMITERS;